MacHome 2001 May

home *** CD-ROM | disk | FTP | other *** search

/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / Formats / Book Format < prev next >

Wrap

Text File | 2000-12-05 | 38.6 KB | 2,471 lines | [TEXT/GeDt]

GFVN 6 @@GeDF@@_Unknown_ Printing ! static text with level and tab newline get *name if style static text *lev text " " text *tag text ": " face italic width -2 else style label text *it text ": " width -2 endif ! edit field with value hskip 0 style editvalue w=-1 newline @@GeDF@@Individual Events ADOP Adoption CHRA Adult Christening BAPM Baptism BARM Bar Mitzvah BASM Bas Mitzvah BIRT Birth BLES Blessing BURI Burial CAST Caste Name CENS Census CHR Christening EVEN Circumcision CREM Cremation CONF Confirmation NMR Count of Marriages DEAT Death EVEN Deed EDUC Education EMIG Emigration FCOM First Communion EVEN Generic Event GRAD Graduation EVEN Illness IMMI Immigration BAPL LDS Baptism SLGC LDS Child Sealing CONL LDS Confirmation ENDL LDS Endowment EVEN Military Service EVEN Miscarriage EVEN Mission NAME Name IDNO National ID Number NATI National or Tribal Origin NATU Naturalization TITL Nobility Type Title NCHI Number of Children OCCU Occupation ORDN Ordination DSCR Physical Description PROP Possessions PROB Probate RELI Religious Affiliation RETI Retirement RESI Residence SSN Social Security Number WILL Will @@GeDF@@Family Events ANUL Annulment CENS Census DIV Divorce DIVF Divorce Filed EVEN Generic Event ENGA Engagement SLGS LDS Spouse Sealing MARR Marriage MARB Marriage Bann MARC Marriage Contract MARL Marriage License MARS Marriage Settlement NCHI Number of Children EVEN Separation @@GeDF@@GEDCOM Tag Names ABBR Short Title ADOP Adoption ADR1 Address Line 1 ADR2 Address Line 2 AGE Age AGNC Agency ALIA Alias ANCE Generations of Ancestors ANUL Anulment AFN Ancestral File Number ASSO Association BAPL LDS Baptism BAPM Baptism BARM Bar Mitzvah BASM Bas Mitzvah BLES Blessing BURI Burial CALN Call Number CAST Caste Name CAUS Cause CENS Census CHAR Character Set CHR Christening CHRA Adult Chr CITY City CONF Confirmation CONL LDS Confirmation COPR Copyright CORP Corporation CREM Cremation CTRY Country DATE Date DEAT Death DESC Generations of Descendents DEST Dest File DIV Divorce DIVF Divorce Filed DSCR Physical Description EMIG Emigration ENGA Engaged ENDL LDS Endowment EVEN Event EDUC Education FAMF Family File FCOM First Communion FILE File FORM Form GIVN Given GRAD Graduation IDNO National ID Number IMMI Immigration LANG Language MARB Marriage Banns MARC Marriage Contract MARL Marriage License MARR Marriage MARS Settlement MEDI Media Type NATI Nationality NATU Naturalized NCHI Number of Children NICK Nickname NMR Number of Marriages NPFX Prefix NSFX Suffix OCCU Occupation ORDI Ordinance Process Flag ORDN Ordination PAGE Page PEDI Pedigree PHON Phone Number PLAC Place POST Postal Code PROB Probate PROP Possessions QUAY Quality REFN User Reference Number RELA Relationship RELI Religion REPO Repository RESI Residence RESN Restriction RETI Retirement RFN Record File Number RIN Record ID ROLE Role SLGC LDS Child Sealing SLGS LDS Spouse Sealing SPFX Sur Prefix SSN Social Security Number STAE State STAT Status SUBM Submitter SURN Surname TEMP Temple TITL Title TIME Time TYPE Type VERS Version WILL Will @@GeDF@@@WindowRects 1 1 0 0 31 55 547 574 52 90 531 578 114 194 567 530 106 121 521 513 22 107 432 546 63 183 512 342 155 193 552 402 183 192 564 420 60 141 536 468 57 147 491 222 51 106 566 469 16 48 637 591 21 55 637 474 85 47 546 398 103 177 594 592 33 107 512 423 @@GeDF@@@Tree Preferences 0 @PREF@ @TRE 1 @STY Name 2 @FNT Helvetica 2 @SZE 9 2 @FCE Plain 2 @CLR Color 3 @RGB 0 0 0 1 @STY Title 2 @FNT Helvetica 2 @SZE 10 2 @FCE Bold 2 @CLR Color 3 @RGB 0 0 0 1 @CLR Males 2 @RGB 3276 48495 63568 1 @CLR Females 2 @RGB 63568 41942 59636 1 @CLR Cross Reference 2 @RGB 49972 4968 8539 1 @CLR Box Frame 2 @RGB 18349 18349 18349 1 @CLR Box Shadow 2 @RGB 32112 32112 32112 1 @CLR Lines 2 @RGB 0 0 0 1 @CKB Use Color 2 @CVL Y 1 @TXT Box Style 2 @TVL Simple Box 1 @TXT Name Format 2 @TVL Full Names 1 @TXT Life Span 2 @TVL On Second Line 1 @TXT Ancestor Format 2 @TVL Horizontal, Center Aligned 2 @CKB Reverse (R->L or B->T) 3 @CVL N 1 @TXT Descendant Format 2 @TVL Horizontal, Center Aligned 2 @CKB Reverse (R->L or B->T) 3 @CVL N 1 @NUM Horiz Spacing 2 @VAL 12 1 @NUM Vert Spacing 2 @VAL 10 1 @NUM Horiz Padding 2 @VAL 3 1 @NUM Vert Padding 2 @VAL 3 1 @NUM Top Margin 2 @VAL 5 1 @NUM Left Margin 2 @VAL 5 1 @NUM Max Appearances 2 @VAL 1 1 @NUM Line Thickness 2 @VAL 1 1 @VRS 6 @@GeDF@@@Index Preferences 0 @PREF@ @IDX 1 @STY Index 2 @FNT Times 2 @SZE 12 2 @FCE Plain 2 @CLR Color 3 @RGB 0 0 0 1 @CKB Require Double Clicks 2 @CVL N 1 @IPU Clicking Opens 2 @IPV Y 1 @IPU Shift-Clicking Opens 2 @IPV N 1 @CLR Odd Rows 2 @RGB 58638 58638 58638 1 @CLR Even Rows 2 @RGB 58638 58638 58638 1 @HGL 2 @CLR Grid Color 3 @RGB 63488 63488 63488 2 @CKB Use Grid Lines 3 @CVL Y 1 @NUM Row Padding 2 @VAL 2 1 @ICL Y 2 @ILB NAME 2 @IJT Left 2 @ITY 0 1 @ICL Y 2 @ILB BIRTH 2 @IJT Center 2 @ITY 1 1 @ICL Y 2 @ILB DEATH 2 @IJT Center 2 @ITY 2 1 @ICL Y 2 @ILB FATHER 2 @IEX FAMC.HUSB.NAME 2 @IJT Left 1 @ICL Y 2 @ILB MOTHER 2 @IEX FAMC.WIFE.NAME 2 @IJT Left 1 @VRS 6 @@GeDF@@_Unknown_ Editing ! static text with level and tab newline get *name if style static text *lev text " " text *tag text ": " face italic width -2 else style label text *it text ": " width -2 endif ! edit field with value hskip 0 style editvalue w=-1 newline @@GeDF@@@Editing Preferences 0 @PREF@ @EDT 1 @STY Editing 2 @FNT Times 2 @SZE 12 2 @FCE Plain 2 @CLR Color 3 @RGB 0 0 0 1 @STY Labels 2 @FNT Times 2 @SZE 12 2 @FCE Plain 2 @CLR Color 3 @RGB 16383 16383 16383 1 @STY Static 2 @FNT Times 2 @SZE 12 2 @FCE Plain 2 @CLR Color 3 @RGB 16383 16383 16383 1 @STY Buttons 2 @FNT Times 2 @SZE 12 2 @FCE Plain 2 @CLR Color 3 @RGB 1 5 58326 1 @CLR Revision 2 @RGB 65000 0 0 1 @CLR Background 2 @RGB 65535 65535 65535 1 @CLR Field Top 2 @RGB 17096 17096 17096 1 @CLR Field Bottom 2 @RGB 50338 50338 50338 1 @CLR Button 2 @RGB 58940 59022 59022 1 @CLR Button Top 2 @RGB 62258 62258 62258 1 @CLR Button Bottom 2 @RGB 42597 42597 42597 1 @NUM Line Separation 2 @VAL -2 1 @NUM Left Margin 2 @VAL 3 1 @NUM Min Edit Lines 2 @VAL 1 1 @NUM Max Edit Lines 2 @VAL 20 1 @NUM Button Corners 2 @VAL 8 1 @VRS 6 @@GeDF@@Custom Long Tags _FREL _MREL _SCHEMA _MEND _MSTAT @@GeDF@@GEDCOM Tag Phrases NOTE Notes on @@GeDF@@@ColumnWidths 169 68 63 147 145 @@GeDF@@INDI Record Editing Set ind1 20 Set ind2 40 ifNot nowprinting Pass ficn HSkip 8 Icon Father View:Father Help View father HSkip -1 Icon Mother View:Mother Help View mother HSkip -1 Icon Families View:Families Help View families HSkip -1 Icon Spouse View:Spouse Help View spouses HSkip -1 Icon Children View:Children Help View children HSkip -1 Icon Siblings View:Siblings Help View siblings HSkip -1 Icon Relatives View:Relatives... Help Search for relatives HSkip 4 Icon Ancestors Tree:Ancestor Tree Help Compile ancestor tree HSkip -1 Icon Descendants Tree:Descendant Tree Help Compile descendant tree Pass gmen EndIconBar 3 endif Pass rech INDIVIDUAL Show NAME *SEX ShowAll NAME none ShowAll SEX ShowAll BIRT Born ShowAll DEAT Died ShowAll FAMS ShowAll FAMC ! events NewLine 9 Set oldv #vpos Style label w=-1 f=bold Text Individual Events ShowAll BAPM ShowAll CHR ShowAll BLES ShowAll BARM ShowAll BASM ShowAll ADOP ShowAll CHRA ShowAll CONF ShowAll FCOM ShowAll ORDN ShowAll GRAD ShowAll EMIG ShowAll IMMI ShowAll NATU ShowAll CENS ShowAll RETI ShowAll PROB ShowAll BURI ShowAll WILL ShowAll CREM ShowAll EVEN ShowAll BAPL ShowAll CONL ShowAll ENDL ShowAll SLGC get #vpos if #oldv NewLine HSkip #ind1 Style label w=-1 Text (no individual events recorded) endif ! attributes LeftSkip #dlmg NewLine 9 Set oldv #vpos Style label w=-1 f=bold Text Individual Attributes ShowAll OCCU ShowAll EDUC ShowAll DSCR ShowAll RELI ShowAll RESI ShowAll SSN ShowAll IDNO ShowAll PROP ShowAll CAST ShowAll NCHI ShowAll NMR ShowAll TITL get #vpos if #oldv NewLine HSkip #ind1 Style label w=-1 Text (no individual attributes recorded) endif ! events NewLine 9 Style label w=-1 f=bold Set oldv #vpos Text Miscellaneous, Sources, and Notes ShowAll OBJE ShowAll ALIA ShowAll ASSO ShowAll SOUR ShowAll NOTE ShowAll SUBM Submitter ShowAll ANCI Ancestor Interest ShowAll DESI Descendent Interest ShowAll CHAN ShowAll REFN ShowAll RIN get #vpos if #oldv NewLine HSkip #ind1 Style label w=-1 Text (no additional information recorded) endif HideExcess @@GeDF@@NAME Editing get *rec if INDI Set enpt #rmgn Sub enpt 100 Style editvalue s=14 w=#enpt f=bold Red HSkip 5 get *msg ifNot none Style static w=-1 get *msg if M Text (Male) elseif F Text (Female) else Text (Sex unknown) endif endif LeftSkip #ind1 ShowAll NPFX <Name Piece> ShowAll GIVN <Name Piece> ShowAll NICK <Name Piece> ShowAll SPFX <Name Piece> ShowAll SURN <Name Piece> ShowAll NSFX <Name Piece> ShowAll SOUR ShowAll NOTE NewLine LeftSkip #dlmg else ! start new line and label NewLine Style label f=bold s=14 Text Name: Width -2 ! edit name HSkip 0 Style editvalue w=-1 s=14 endif @@GeDF@@BIRT Editing ! New line and enter label newline 3 style label f=bold text *msg text ": " width -2 ! show date and place show DATE leftskip #ind1 showall PLAC ! show date and place get *msg if Died showall AGE showall CAUS endif showall TYPE showall ADDR showall AGNC get *msg if Married showall CAUS showall AGE full endif showall OBJE ! Show sources showAll SOUR showAll NOTE newline leftskip #dlmg hideexcess @@GeDF@@DATE Editing get #hpos if #lmgn style label text Date: width -2 hskip 5 else hskip 0 endif style editvalue w=-1 content date @@GeDF@@DEAT Editing use BIRT Editing @@GeDF@@SEX Editing @@GeDF@@FAMS Editing ! marriage button newline 3 style label f=bold get *this.SEX if F text "Husband: " get *valu.HUSB setstr hlpt "View husband" else text "Wife: " get *valu.WIFE setstr hlpt "View wife" endif width -2 hskip 0 style button w=-1 font times if nowprinting black endif link *it get *it.NAME ifnotempty text *it else text <unknown> endif help *hlpt leftskip #ind1 newline style label text "Children: " width -2 hskip 0 set lbeg #hpos leftskip #lbeg passall clst *valu.CHIL get #hpos if #lbeg style label text "(none)" newline endif leftskip #ind1 showall NOTE newline leftskip #dlmg @@GeDF@@NOTE Editing get *rec if HEAD Style edittext else if tagexists NewLine Style label Text Notes: Width -2 HSkip 5 if NowPrinting get *valu if validlink InsertRecord *valu else Style edittext w=-1 NewLine endif else Style button w=-1 s=12 if nowprinting Black endif Font times get *valu if validlink Link *valu SetStr tfst *valu.next ifEmpty *tfst SetStr tfst <Notes with first line empty> else Count *valu.next ifNot 1 CatStr tfst ... endif endif else SetStr tfst *valu ifEmpty *tfst SetStr tfst <Notes with first line empty> else Count *next ifNot 0 CatStr tfst ... endif endif StructLink eNOT endif Text *tfst Help Click to view and edit notes HSkip 5 endif ShowAll SOUR endif endif @@GeDF@@FAMC Editing ! Father ifempty *msg newline 3 style label f=bold else newline style label endif text "Father: " width -2 hskip 0 style button w=-1 get *valu.HUSB.NAME ifnotempty text *it else text <unknown> endif link *valu.HUSB help View father if nowprinting black endif ! Mother ifempty *msg newline 3 style label f=bold else newline style label endif text "Mother: " width -2 hskip 0 style button w=-1 get *valu.WIFE.NAME ifnotempty text *it else text <unknown> endif link *valu.WIFE help View mother if nowprinting black endif get *msg ifempty leftskip #ind1 showAll PEDI showAll NOTE newline leftskip #dlmg elseif ADOP get *ADOP if HUSB newline style static w=-1 text Adopted by husband elseif WIFE newline style static w=-1 text Adopted by wife elseif BOTH newline style static w=-1 text Adopted by both parents endif HideExcess endif @@GeDF@@BAPM Editing use BURI Editing @@GeDF@@FAM Record Editing SetTab 72 SetTab 112 SetTab 216 SetTab 432 Set ind1 20 Set ind2 40 ifNot nowprinting Pass ficn HSkip 8 Icon Father View:Husband Help Husband's individual record HSkip -1 Icon Mother View:Wife Help Wife's individual record HSkip -1 Icon Families View:Families Help View related family records HSkip -1 Icon Children View:Children Help View children HSkip -1 Pass gmen EndIconBar 3 endif Pass rech FAMILY Show HUSB Husband NewLine 3 Show WIFE Wife ShowAll MARR ! children table NewLine 8 LineSkip 0 Style label tw=3 j=center f=bold Text Children Border frame ltbr HSkip 0 Style label w=55 j=center f=bold Text Sex Border frame tbr HSkip 0 Style label w=110 j=center f=bold Text Birthdate Border frame tbr ifNot nowprinting HSkip 0 Style label j=center tw=1 f=bold Text Link Border frame tbr endif Set chnm 1 ShowAll CHIL get #chnm if 1 NewLine Style label j=center Text (No children in this family) if nowprinting Width 379 else TabWidth 4 endif Border frame lr endif NewLine Style label h=3 Border frame t if nowprinting Width 379 else TabWidth 4 endif ! number of children LineSkip #dlsk NewLine 2 ShowAll NCHI ! events NewLine 9 Set oldv #vpos Style label w=-1 f=bold Text Family Events ShowAll ENGA ShowAll MARB ShowAll MARC ShowAll MARL ShowAll MARS ShowAll DIV ShowAll DIVF ShowAll ANUL ShowAll CENS ShowAll EVEN ShowAll SLGS get #vpos if #oldv NewLine HSkip #ind1 Style label w=-1 Text (no individual events recorded) endif ! more data NewLine 9 Style label w=-1 f=bold Set oldv #vpos Text Miscellaneous, Sources, and Notes ShowAll OBJE ShowAll SOUR ShowAll NOTE ShowAll SUBM Submitter ShowAll CHAN ShowAll REFN ShowAll RIN get #vpos if #oldv NewLine HSkip #ind1 Style label w=-1 Text (no additional information recorded) endif HideExcess @@GeDF@@WIFE Editing use HUSB Editing @@GeDF@@CHIL Editing ! link to child newline style button s=12 tw=3 if nowprinting black endif font times text #chnm add chnm 1 text ". " get *valu.NAME ifnotempty text *it link *valu else text <unknown> Black endif help View child border frame lr hskip 0 style static w=55 j=center get *valu.SEX if M text Son elseif F text Daughter else text Unknown endif border frame r hskip 0 style static w=110 j=center text *valu.BIRT.DATE border frame r ifnot nowprinting hskip 0 get *valu.FAMS if validlink style button f=underline s=12 j=center text Family blue font times link *it help View family with child as spouse else style static endif tabwidth 1 border frame r endif @@GeDF@@MARR Editing newline 4 style label f=bold text "Marriage: " width -2 ! show date and place show DATE leftskip #ind1 showall PLAC showall TYPE showall ADDR showall AGNC showall CAUS showall AGE showAll OBJE showAll SOUR showAll NOTE get *HUSB.AGE ifnotempty newline style label w=-1 text "Husband’s age at event: " text *it endif get *WIFE.AGE ifnotempty newline style label w=-1 text "Wife’s age at event: " text *it endif newline leftskip #dlmg hideexcess @@GeDF@@ADDR Editing ! parent family button newline style label get *msg ifnotempty text *it text ": " else text "Address: " endif width -2 hskip 0 if nowprinting style edittext w=-1 else style editcont w=-1 endif @@GeDF@@SUBM Record Editing set ind1 20 set ind2 40 ifNot nowprinting Pass ficn Pass gmen EndIconBar 3 endif pass rech SUBMITTER showall NAME showall ADDR showall PHON showall LANG showall OBJE @@GeDF@@SUBM Editing newline style label text *msg text ":" width -2 hskip 5 style button w=-1 link *valu get *valu.NAME ifnotempty text *it else text <Unknown> endif if nowprinting black endif get *msg if "submitter" help View submitter else help *msg help " submitter" endif @@GeDF@@NOTE Record Editing set ind1 20 set ind2 40 ifnot nowprinting pass Nlab endif style edittext w=-1 showAll SOUR showall CHAN "Notes " showall REFN "Notes " showall RIN "Notes " newline hideexcess @@GeDF@@REPO Record Editing set ind1 20 set ind2 40 ifNot nowprinting Pass ficn Pass gmen EndIconBar 3 endif pass rech REPOSITORY showall NAME showall ADDR showall PHON showall NOTE @@GeDF@@AUTH Editing newline style label f=bold text Author: width -2 hskip 5 if nowprinting style edittext w=-1 else style editcont w=-1 endif @@GeDF@@TITL Editing get *msg ifEmpty NewLine 4 Style label Text *name Text ": " Width -2 HSkip 5 Style editvalue w=-1 ! show any details LeftSkip #ind1 NewLine ShowAll DATE ShowAll AGE ShowAll TYPE ShowAll PLAC ShowAll ADDR ShowAll CAUS ShowAll AGNC ShowAll OBJE ShowAll SOUR ShowAll NOTE NewLine LeftSkip #dlmg elseif mm NewLine Style label f=bold Text Title: Width -2 HSkip 5 Style editvalue w=-1 else NewLine Style label f=bold Text Title: Width -2 HSkip 5 if nowprinting Style edittext w=-1 else Style editcont w=-1 endif endif @@GeDF@@SOUR Record Editing Set ind1 20 Set ind2 40 ifNot nowprinting Pass ficn Pass gmen EndIconBar 3 endif Pass rech SOURCE ShowAll AUTH ShowAll TITL Source ShowAll ABBR ShowAll PUBL ShowAll NOTE ShowAll REPO Repository ShowAll DATA ShowAll TEXT ShowAll OBJE @@GeDF@@PUBL Editing newline style label text Publisher: width -2 hskip 5 if nowprinting style edittext w=-1 else style editcont w=-1 endif @@GeDF@@REPO Editing newline style label text *msg text ":" width -2 hskip 5 style button w=-1 link *valu get *valu.NAME ifnotempty text *it else text <Unknown> endif if nowprinting black endif help View repository record leftskip #ind1 showall CALN showall NOTE leftskip #dlmg newline @@GeDF@@SOUR Editing if tagexists NewLine Style label Text Source: Width -2 HSkip 5 get *valu if validlink Style button w=-1 get *it.ABBR ifEmpty get *valu.TITL ifEmpty get <Unnamed Source> endif endif Text *it get *PAGE ifNotEmpty Text " (page " Text *it Text ) endif if nowprinting Black endif Link *valu help View source record NewLine get #lmgn if #dlmg LeftSkip #ind1 else LeftSkip #ind2 endif ShowAll EVEN FromSOUR ShowAll DATA ShowAll QUAY ShowAll NOTE NewLine get #lmgn if #ind2 LeftSkip #ind1 else LeftSkip #dlmg endif HideExcess else if nowprinting Style edittext w=-1 else Style editcont w=-1 endif NewLine get #lmgn if #dlmg LeftSkip #ind1 else LeftSkip #ind2 endif ShowAll TEXT ShowAll NOTE NewLine get #lmgn if #ind2 LeftSkip #ind1 else LeftSkip #dlmg endif endif else HideExcess endif @@GeDF@@DATA Editing get *rec if SOUR newline 3 style label w=-1 f=bold text Type of Data Recorded in this Source: newline leftskip #ind1 showall EVEN showall AGNC showAll NOTE leftskip #dlmg newline else showall DATE showall TEXT endif @@GeDF@@TEXT Editing newline style label text Source Text: width -2 ! edit the date hskip 5 if nowprinting style edittext w=-1 else style editcont w=-1 endif @@GeDF@@ANCI Editing use SUBM Editing @@GeDF@@DESI Editing use SUBM Editing @@GeDF@@BURI Editing newline 4 style label text *name text ": " width -2 ! show date and place show DATE leftskip #ind1 showall AGE showall TYPE showall PLAC showall ADDR showall CAUS showall AGNC showAll OBJE showAll SOUR showAll NOTE get *tag if CHR showAll FAMC CHR elseif ADOP showAll FAMC ADOP endif get *rec if FAM get *HUSB.AGE ifnotempty newline style label w=-1 text "Husband’s age at event: " text *it endif get *WIFE.AGE ifnotempty newline style label w=-1 text "Wife’s age at event: " text *it endif hideexcess endif newline leftskip #dlmg @@GeDF@@HEAD Record Editing set ind1 20 set ind2 40 pass rech HEADER style label f=bold text Custom Book From GEDCOM File: width -2 hskip 6 style label w=-1 text Printed using GEDitCOM newline hskip 40 style label text Home Page: width -2 hskip 5 style label w=-1 s=9 font monaco text http://www.geditcom.com newline style label f=bold text Source File: width -2 hskip 5 style label w=-1 text *file newline style label f=bold text File Prepared Using: width -2 hskip 5 style label w=-1 text *SOUR.NAME text " " text *SOUR.VERS newline showall SUBM File Submitter newline style label w=-1 f=bold text File Notes: newline show NOTE HideExcess @@GeDF@@CORP Editing newline style label j=right tw=1 text Corporation: hskip 5 style editvalue w=-1 newline show ADDR @@GeDF@@COPR Editing use ABBR Editing @@GeDF@@SUBN Editing style button w=100 j=center b=3dbutton text Submission link *valu if nowprinting black endif hskip 5 @@GeDF@@GEDC Editing newline cleartabs settab #tab2 show VERS GEDCOM settab #tab1 show FORM @@GeDF@@DEST Editing use ABBR Editing @@GeDF@@FILE Editing use ABBR Editing @@GeDF@@OBJE Record Editing pass rech MULTIMEDIA newline 3 style label w=-1 j=center text GEDitCOM follows recommended GEDCOM practice text " which is to support" border frame ltr newline style label w=-1 j=center text Multimedia by links to separate files. text " This record contains encoded digital data" border frame lr newline style label w=-1 j=center text and cannot be viewed in GEDitCOM. border frame lrb HideExcess @@GeDF@@SUBN Record Editing set ind1 20 set ind2 40 ifNot nowprinting Pass ficn EndIconBar 3 endif pass rech SUBMISSION showall SUBM Submitter @@GeDF@@HUSB Editing ! label on current line newline style label f=bold s=14 text *msg text ": " width -2 ! display name hskip 0 style button w=-1 s=14 get *valu.NAME ifnotempty text *it link *valu else text <unknown> Black endif help "View " help *msg if nowprinting black endif @@GeDF@@WILL Editing use BURI Editing @@GeDF@@NATU Editing use BURI Editing @@GeDF@@ORDN Editing use BURI Editing @@GeDF@@CHR Editing use BURI Editing @@GeDF@@CREM Editing use BURI Editing @@GeDF@@ADOP Editing use BURI Editing @@GeDF@@BARM Editing use BURI Editing @@GeDF@@BASM Editing use BURI Editing @@GeDF@@BLES Editing use BURI Editing @@GeDF@@CONF Editing use BURI Editing @@GeDF@@FCOM Editing use BURI Editing @@GeDF@@EMIG Editing use BURI Editing @@GeDF@@IMMI Editing use BURI Editing @@GeDF@@CENS Editing use BURI Editing @@GeDF@@PROB Editing use BURI Editing @@GeDF@@RETI Editing use BURI Editing @@GeDF@@GRAD Editing use BURI Editing @@GeDF@@EVEN Editing get *rec if SOUR style label text "Events:" width -2 hskip 5 style editvalue w=-1 leftskip #ind2 newline showall DATE showall PLAC leftskip #ind1 newline else ifempty *msg newline 4 style label ifempty *TYPE text *name else text *TYPE endif text ": " width -2 ! show date and place show DATE leftskip #ind1 showall AGE showall PLAC showall ADDR showall CAUS showall AGNC showAll OBJE showAll SOUR showAll NOTE get *rec if FAM get *HUSB.AGE ifnotempty newline style label w=-1 text "Husband’s age at event: " text *it endif get *WIFE.AGE ifnotempty newline style label w=-1 text "Wife’s age at event: " text *it endif endif hideexcess newline leftskip #dlmg else style label text Event: width -2 hskip 5 style editvalue w=-1 showall ROLE endif endif @@GeDF@@CHAR Editing ! label on current line newline style label j=right tw=1 text *name text : ! edit the date hskip 5 style editvalue w=-1 cleartabs settab #tab2 show VERS Char. Set @@GeDF@@ENGA Editing newline 4 style label text *name text ": " width -2 ! show date and place show DATE leftskip #ind1 showall AGE showall TYPE showall PLAC showall ADDR showall CAUS showall AGNC showAll OBJE showAll SOUR showAll NOTE get *HUSB.AGE ifnotempty newline style label w=-1 text "Husband’s age at event: " text *it endif get *WIFE.AGE ifnotempty newline style label w=-1 text "Wife’s age at event: " text *it endif newline leftskip #dlmg hideexcess @@GeDF@@MARB Editing use ENGA Editing @@GeDF@@MARC Editing use ENGA Editing @@GeDF@@ANUL Editing use ENGA Editing @@GeDF@@DIV Editing use ENGA Editing @@GeDF@@DIVF Editing use ENGA Editing @@GeDF@@MARL Editing use ENGA Editing @@GeDF@@MARS Editing use ENGA Editing @@GeDF@@VERS Editing ! label on current line style label j=right tw=1 get *msg ifnotempty text *it text " " endif text *name text ":" ! edit the version hskip 5 style editvalue w=-1 @@GeDF@@QUAY Editing !title newline style label text Quality: width -2 ! popup menu hskip 5 style popupedit w=90 ifnot nowprinting blue endif popupitem Unknown: popupitem Unreliable:0 popupitem Questionable:1 popupitem Secondary:2 popupitem Primary:3 help Click to enter quality of this source newline @@GeDF@@OBJE Editing get *valu ! link to embedded MM if ValidLink HideExcess ! link to file elseif TagExists NewLine Style label Text Multimedia: Width -2 HSkip 5 Set mbeg #hpos Style label w=-1 get *TITL ifEmpty get *FILE endif Text *it Text " (" Text *FORM Text ) NewLine HMoveTo #mbeg setmmform *FORM get *FORM if URL Style button w=-1 text *FILE URLLink *FILE else Style static b=field ShowMM *FILE Set cwid #picw Add cwid 4 Width #cwid Set cwid #pich Add cwid 4 Height #cwid endif HideExcess ! no structure there else HideExcess endif @@GeDF@@TIME Editing @@GeDF@@ALIA Editing if tagexists newline style label text *name text : width -2 hskip 5 style button s=12 w=-1 get *valu.NAME ifempty get <Unnamed Alias> endif text *it link *valu help View alias record font times if nowprinting black endif else HideExcess endif @@GeDF@@ASSO Editing if tagexists newline style label text *name text : width -2 hskip 5 style button s=12 w=-1 get *valu.NAME ifempty get <Unnamed Association> endif text *it link *valu help View associated individual record font times if nowprinting black endif leftskip #ind1 showall RELA showall SOUR showall NOTE leftskip #dlmg else HideExcess endif @@GeDF@@RELA Editing style static text "Relationship: " width -2 ! edit the relation hskip 0 style editvalue w=-1 @@GeDF@@CHRA Editing use BURI Editing @@GeDF@@AGE Editing style label text "Age: " width -2 ! edit the date hskip 0 style editvalue w=-1 @@GeDF@@RESI Editing use OCCU Editing @@GeDF@@CONL Editing newline 4 style label text *name text ": " width -2 ! show date and place show DATE leftskip #ind1 showAll PLAC showAll STAT showAll TEMP showAll SOUR showAll NOTE newline leftskip #dlmg @@GeDF@@BAPL Editing use CONL Editing @@GeDF@@ENDL Editing use CONL Editing @@GeDF@@SLGC Editing use CONL Editing @@GeDF@@STAT Editing !title newline style label text Status: width -2 ! popup menu hskip 5 style popupedit f=plain s=12 w=100 font times ifnot nowprinting blue endif popupitem {Unspecified}: popupitem Child popupitem Cleared popupitem Completed popupitem Infant popupitem Qualified popupitem Pre-1970 popupitem Stillborn popupitem Submitted popupitem Uncleared help Click to enter status of ordinance @@GeDF@@CHAN Editing ! static text with level and tab NewLine if nowprinting newline ifNotEmpty *msg hskip #ind1 endif Style label Text *msg else Style label endif Text "Last Changed: " Width -2 ! show date and time HSkip 0 Style static w=-1 Text *valu Text *DATE get *DATE.TIME ifNotEmpty Text ", " Text *it endif HideExcess @@GeDF@@NCHI Editing get *rec if FAM ! static text with level and tab style label text Number of Children: width -2 ! edit field with value hskip 5 style editvalue w=-1 else newline 4 style label text *name text ": " width -2 hskip 5 style editvalue w=-1 ! show any details leftskip #ind1 newline showall DATE showall AGE showall TYPE showall PLAC showall ADDR showall CAUS showall AGNC showAll OBJE showAll SOUR showAll NOTE newline leftskip #dlmg endif @@GeDF@@SLGS Editing use CONL Editing @@GeDF@@PLAC Editing ! static text with level and tab newline style label get *rec if HEAD cleartabs settab #tab2 text " Default Place Hierarchy" width -1 newline -2 settab 40 settab #tab1 show FORM else text "Place: " width -2 if nowprinting hskip 0 index *valu endif ! edit field with value hskip 0 style editvalue w=-1 newline endif @@GeDF@@CONT Editing @@GeDF@@FORM Editing get *msg if mm hskip 5 style editvalue w=50 else newline set levl *lev style label j=right tw=#levl text Form: ! edit field with value hskip 5 style editvalue w=-1 endif @@GeDF@@PEDI Editing !title newline style label text Pedigree: width -2 ! popup menu hskip 5 style popupedit w=75 s=12 font times ifnot nowprinting blue endif popupitem Birth: popupitem Adopted:adopted popupitem Foster:foster popupitem Sealing:sealing help Click to select pedigree @@GeDF@@REFN Editing ! static text with level and tab newline if nowprinting ifNotEmpty *msg hskip #ind1 endif Style static Text *msg else Style static endif get *TYPE ifnotempty text *it text ": " else text "User Reference ID: " endif width -2 ! edit field with value hskip 0 style editvalue w=-1 HideExcess @@GeDF@@clst Editing style button w=-1 text *msg.NAME get *msg.SEX if M text " (son, " elseif F text " (daughter, " else text " (" endif get *msg.BIRT.DATE ifnotempty text "born: " text *it endif text ) if nowprinting black endif link *msg help View child @@GeDF@@OCCU Editing newline 4 style label text *name text ": " width -2 get *tag hskip 5 ifnot RESI style editvalue w=-1 else style static w=-1 endif ! show any details leftskip #ind1 newline showall DATE showall AGE showall TYPE showall PLAC showall ADDR get *tag if RESI showall PHON endif showall CAUS showall AGNC showAll OBJE showAll SOUR showAll NOTE newline leftskip #dlmg @@GeDF@@EDUC Editing use OCCU Editing @@GeDF@@DSCR Editing use OCCU Editing @@GeDF@@RELI Editing use OCCU Editing @@GeDF@@SSN Editing use OCCU Editing @@GeDF@@IDNO Editing use OCCU Editing @@GeDF@@PROP Editing use OCCU Editing @@GeDF@@CAST Editing use OCCU Editing @@GeDF@@NMR Editing use OCCU Editing @@GeDF@@Nlab Editing newline 3 style label w=-1 f=bold get *rec if HEAD text "Header Notes" elseif FAM text "Notes on " get *this.HUSB.NAME ifempty get ? endif text *it text " / " get *this.WIFE.NAME ifempty get ? endif text *it text " Family" elseif SOUR text "Notes on " get *this.ABBR ifempty get *this.TITL ifempty get <Unnamed Source> endif endif text *it else text "Notes on " get *this.NAME ifempty get <Unnamed Record> endif text *it endif @@GeDF@@rech Editing NewLine 2 if nowprinting Style label f=bold w=-1 s=14 Text *msg Text " RECORD" Blue Font Helvetica NewLine Style static w=-1 h=1 Border frame t CellUp 0 0 0xD4 NewLine 3 endif @@GeDF@@RIN Editing ! static text with level and tab newline if nowprinting ifNotEmpty *msg hskip #ind1 endif Style static Text *msg else Style static endif text "Record ID: " width -2 ! edit field with value hskip 0 style editvalue w=-1 HideExcess @@GeDF@@ficn Editing MoveTo 2 HMoveTo 2 icon Open File:Open... help Open new file hskip -1 icon Save File:Save help Save file hskip -1 icon Print File:Print... help Print hskip -1 icon Preview File:Print Preview... help Print preview hskip 2 icon Search Edit:Search... help Search the file hskip -1 icon Index View:Index... help Open index window @@GeDF@@gmen Editing set bicn #rmgn sub bicn #lmgn sub bicn 100 HMoveTo #bicn icon Back Go:Back help Go back hskip 2 icon Prev Go:Prev help "Previous " help *rec help " record" hskip -1 icon Next Go:Next help "Next " help *rec help " record" hskip 2 icon Home Go:Home help Go to home record @@GeDF@@ @@GeDF@@Current GEDitCOM Format Editing Help .../G./9..U1ja/w.vtcD.I76y.1jads....../W..2.PE...6A..E0C.../.E.0 .G6...5F..2/r....VA..E6f...0OU./.bI...8R..A0gE...zc./.Dz...2q..1 /Eo...IE..I36U../GI./EIn...3BU.3/IE...J5..I3KE../Jk./EJi...3Q..3 /M6...MF..M43E../jc./kPy...67..500U...fh..28y...0o2..EhM...9kE.0 0wc...jC..69pk..10E..Ekv...ARk./166...mQ..IAeE..19E..Un/...Axk.0 1EE...oG..6B5k..1RE..UrV...CO..01bI...ub..ICiE..1n...Ewv...DWk./ 1tM..///..AEJk..25M..F0/...EeE.528o../5D..6FsU..2Tvzzl5yzzw...0E .0M.1E.8..A....8..........k.1E.8..A/...8..........Y.1E.8..A2...8 .....BE...A.1E.8..A2...8..........2.1E.8..A....82JVShkp1..U.1E.8 ..A0...8..........2.1E.8..A....8GXp8DIcx..A.1E.8..A....8.....BE. ...FzG.U60.U63FcOLAUO4JgQ0/oPr/dMm/bOLNZQm/aPr7hMLEhQr/ZMqZaOKAU OKtaPr7hMLFdPqsUMK7jRLEUNKFdR4ZiNm/5FIF1HooUFaZgNLAURqVZPW/pQqZi Nm/oO4IUEaxjOm/4Pr7hMLEi63FcNG/hMKZi65JnNG/jNW/oO4IUEaxjOm/4Pr7h MLEUOLAUR4wUQ57dPbEUPaZXNKlt9KNjQapVR5FZN0/WPqxfQm/aQaxh643iSG/5 FIF1HooUNaZgNGsUFaxm64ZiNaxmPK3oOKxi64xi65/mOKtoOKtb647jPqhn65Jn OKtb62R3F4ZoEoxB65BZNG/oO4IUEbJgOm/EQaZiR4ZiNm/VPaEUI57dPbFdPaQU MG/0Pqxf64VZP5.UR4xkOKAi62JVMqUUQaJXPr7Y65RdP4kUQ57dPbEUOKsUR4VZ 647jPqgUOKsUMG/hMKtiNL6UQqZhOKlVQW/oPm/oO4IURq3t64Zo643kQ4JVQbAU PqsUR4VZ65BXQaJZPWsUJ4VZ65BXQaJZPW/YOLBkP43t65RVQm/YNLBdNqtZN0/r OLFc647jPqgUQ57dPbFdPaQUOKsUPKZiN0sB60.U60.UJ4VZ627jPqgUFaxmPK3o 64VVQm/jPalt64ldPKZoNKEUNKFdR4ZiNm/aNK3oRL7ZQmsUKKxp65BcPrJgN0/p QqIUR4VZ62FZNa3pP5EUFoJ2OLF1HooUFaxmPK3o60VjQW/VPaxoO4Jm64BpQrFj PG/aPr7hMLEd65Fj64JYOLEUSKxpQW/YMLFV643iN0/oO4Ji64ljMKEUR4VZ627j PqgUFaxmPK3o64dpQrEUMaJaPr7Z65ZjRG/rMKto65Fj65/mOKto642UMaxjOmsB 1IZXPqsUEa3mQm/dPW/LOKtYPrRn1G.U60.U63FcNG/dMqxi647VQbAUOKsUPKxn R0/rOKtYPrRn64RdRaIUMG/nNL7dNLAUPqMUMbJoR4xiQm/oO43o65/mPrNdN4IU QqVjQbEUMrJoQm/oPm/hMKtt64pZPbIUMqxhPK3iN0sUJ4wUP4JVQasURqVVR0/V PbYUOKBjPW/YPqJn90/hPrNZ65FcNG/hPrJnNG/jRaJm65FcNG/WRLFoPqsv65Bj PKIUO4JgQ0/oNLVo65RdP4kUML/kNK3m64Zi65FcNG/gPrRZQWpgNKNo64BjQatZ QW/jNW/oO4IURqZiN4xr9W/7NW/WRLFoPqtn643mNG/YOKphNKEg64Zo64pZMKtn 65FcNG/XPr7mNLBkPqtYOKtb64pZPbIUOLFZPG/dQm/XRL7mNKtoP5YUN4ZnMK7g NKEi1G.U60.U63FcNG/bQaJZPW/VQb7jRm/WRLFoPqtn64xi65FcNG/mOKRcR0/V QaIUR4wUoYRj627VMqjH65Fj65FcNG/kQaJqOKxpQqlt65NdNLRZN0/mNKBjQaEU Pr6UR4wUQqBmPqlg65Fj65FcNG1GI57ZRaZjRLDH64xm6B7CNLVoom/mNKBjQaEU PqMUR4VZ65BVPKIUR5ZkNG/VQm/oO4IUMrJmQaJiR0/mNKBjQaEi63FcNG1GG4xh NRAUMbJoR4xi64RjNLAUR4wUR4VZ64BpQb7ZPbEUO4xhNG/mNKBjQaEi1EpHQ4JX OKNdMm/3N4ZoOKtb62ZiNaxmPK3oOKxi64NjQW/3MKBc63FtQ4IUPqMUIaJXPr7Y 1EqZ62ZCF2ZKGIFJEIkUIaJXPr7YQkqZ62N/HIZAKG/GNKBjQaFn1OIUIoxJIYB3 637ZMqxmN5ABdG/GFJ/DIoZIHp7N637ZMqxmN5ABdG/HJI7BGJFIFJ6UIaJXPr7Y QkqZ63BJEYp7IpB7HosUIaJXPr7YQkoU60.U60//P4kUR4VZQqIUQaJXPr7Y65Ft Q4Jn65BdPL/gSG/gOLBo643gP0/oO4IUOKtaPr7hMLFdPqsUOKsUR4VVR0/mNKBj QaEUOKsUMG/hMKtiNL6UQrJdR43WP4IUNaxm65/mOKtoOKtb643n642UMaxjOmsU H43WNKln65RdP4kUQ57dPbEUOKsUFr7VSG/oNLVo9W/BPrBo65FZS5EUOKsUEalV MqgUMq3i647Z64JYOLFZN0.cR4wUNKFdR0/VPbYUR4JsR0/XP4ZXOm/jPW/oO4IU R4JsR0/VPaEURLBZ64tjQapVP0/ZN4ZoOKtb64pZR4VjN5AU9G/iPrFZCW/dNW/o O4IUMrJmQqxm64FjNLAUPaxo65FpQasUR4wUMKsUoaZiQqJmR4ZjPW/WML9H64xq NL6UQqxhNG/oNLVo90/oO4Ji65FcMLEUR4JsR0/XMKsUPaxo647Z64JYOLFZN0Yi 1G.U60.UJ4JsR0/dPW/0P5JZ64BVPW/WNG/XP4ZXOqJY65Fj64xkNKsUMKtjR4VZ QW/mNKBjQaEUPr6UR4wUNKtoNL6UQqxhNG/YMLFV65JnOKtb642UQ4xk9LJk64pZ PbIi62Za65ZjRG/kPrBdR4ZjPW/oO4IUPKxpQqIUPrNZQW/VPbYUMalpNG/oNLVo 90/nPqpZ65FZS5EURqZgP0/VQ5/ZML6UOKsUR4VZ64ljRqJm9KlZNbEUMqxmPaJm 65FcMLEUN4JnMr7dMaJn65RcMLEURqZgP0/cML/kNKsUOKMUSKxp64BgOKBf65Fc NG/oNLVo9UoU60.U60/CPrFZ64NdNKlYQm/rOKlg64xiP5YUQqVjRm/oO4IUNaZm QrEUP4ZiNG/jNW/oO4IUPaxoNLAUOKsUEalpNG/oNLVo9W/NPrIUMq3i64BgOKBf 64xi65FcOLAUP4ZiNG/oPm/ZN4Zo643iN0/qOKJr65FcNG/iPrFZQmsUJ4VZ64Np P4kUR4JsR0/jNW/oO4IUPaxoNLAURqZgP0/kQaZiR0kUO4xrNLNZQWkURqVZPW/o O4IUQaJXPr7Y64Zn643XR5JVP4lt65/mOKtoNKEUPr6UML/kNK3mQm/dPW/V647j Pqgi1G.U60.U62ppP5FdPKJYOK2UNaZgNG.UMKtY64ZiR4JmPaJo64ldPahn65Rd P4kUML/kNK3m64FdQaJXR4lt64Zi65FcNG/rOKtYPrQUN4ZnQ4lVSG/VPaEURqZg P0/kQaZiR0/VQm/rNKlg9W/BPrBo64ZhMKRZQm/aOKlZ64NjQapVR5AUML7Z65Bp Q5/jQbFZN0/VPaEUR4VZ64ZhMKRZ65RdP4kUN4ZnQ4lVSG/VPaEUQ57dPbEi62pj RaZZ64NdP4Jn90/nPrJiN0/aOKlZQmkUMKtY64ZiR4JmPaJo64ldPahn64BVPW/i PrEUMaIUQ57dPbFZN0sUKKxp64BVPW/qOKJr65FcNKoURqZoO4Zi62R3F4ZoEoxB 60VWSG/XP4ZXOqZiNm/jPW/oO4IUOKpVNqIUR4wUPr/ZPW/V62VZP5/ZQW//Q5/g OKBVR4ZjPW/jQW/gMLJiMqUUMKsUOKtoNL7iNLEUML/kP4ZXMLFdPqsd9W/LO4Ji 65/mOKtoNKEg64VjRqJqNL6g65FcNLYURqZgP0/kQaZiR0/VQm/V647jS0/nMLZd PaQUR4VZ65FcMLEUPLJgR4ZhNKFdMG/dPaNjQapVR4ZjPW/XMKsUPaxo647Z65/m OKtoNKEi62ZiR4JmPaJo64ldPahn65RdP4kUQ57dPbEUR4VZ64ZiR4JmPaJo643Y N57ZQrAi1G.U60.U63FcNG/0Pqxf62NjQapVR0/YPqJn64tjR0/cMLNZ643gP0/o O4IUPaZXNG1GNKFdR4ZiNxAUNKtcMKtXNKpZPbFn65FcMLEUML7Z64NjRKtY64Zi 65FcNG/2NKNVRKlo62R3F4ZoEoxB62NjQapVR0sUKKxp65BoOKlg90/cPrRZRaJm 90/XMKsURLBZ643iSG/jNW/oO4IUNKFdR4ZiNm/jQW/iMLNdNq3oOKxi64xkR4Zj PbAUPqMUFoJ2OLF1HooUR4VVR0/VQaIUNaxpPaEUOKsUR4VZ63NdNLQUHKJiRG/j QW/IQaJZ62pZPbIi62Za65ZjRG/iNKJY64pVPbYUPqMUR4VZQqIUPr/oOKxiQmkU OLEUOLAUMaJoR4Jm65Fj64JYOLEUR4VZ64NdP4IURLBdPaQUR4VZ62FZNa3pP5EU FoJ2OLF1HooUFaxmPK3o9W/LO4Ji65ZjRG/VQaIUQaJVN5YUR4wUQ57dPbEUMG/W Pqxf90/tPrIUMq3i65FcNKsUP4xVN0/oO4IUEaxjOm/4Pr7hMLEUObJnR0/WNKNj QaIUQ57dPbFdPaQi1EqZ62V3EIF3IW/GNKBjQaEB60.U60.UJ4VZ62V3EIF3IW/G NKBjQaEURqZgP0/jPalt65BcPrQUMG/aNLQUNaZZP4Fn64NmPqoUR4VZ65BoMKtY ML7Y62R3F2BDHG/6FI32FJ6UIaJXPr7Y9W/BPrBo64xa65FcNG/6FI32FJ6UIaJX Pr7Y65RdPaFjRm/rOKlg647Z64FZRaxoNKEUR4wUR4VZ64tjR4Jn64xi65FcNG/a OKlZCm/tPrIUMq3i64JYOLEUR4VjQqIUPaxoNLAUOKsUR4VZ65FZS5EhNKFdR4Zi Nm/nNKBoOKxi64xa65RdPaFjRmsB60.U60.UJqVZPW/tPrIUQ57dPbEUMG/WPqxf 64NmPqoUMG/5FIF1HooUNaZgNG/VPaEUSKxp64ZiMqlpN4IUR4VZ62V3EIF3IW/G NKBjQaEUOKsUR4VVR0/WPqxf90/dR0/rOKlg65/mOKto643n65FcNG/aOL7nR0/X O43kR4Jm643iN0/dR0/rOKlg647Z64BVP4lZN0/oO4IUoYZiR57jN5JXR4ZjPhAU MqVVQ5FZQWsUJ4VpQmkUSKxp64BVPW/pQqIUR4VZ64tjR4Jn64Zi65FcNG/6FI32 FJ6UIaJXPr7Y65RdPaFjRm/oPm/rQaZoNG/VPW/dPbFmPqFpMrFdPqsUR4wUSKxp QW/WPqxf9UoBdG/BJIlIGIp3F2Z/637ZMqxmN5AB60.U60.UEaJXMLJnNG/5FIFd R2BDHG/YPqJn64tjR0/nRL/kPr7o64JiMqxYNKEUPLJgR4ZhNKFdMG/mNKBjQaFn 643iN0/WNKBVRLBZ65/mOKtoNKEUMaxjOrAURqZgP0/iPrEUQ57dPbEUR4VZPGkU R4VZ627jPqgUFaxmPK3o64FjNLAUPaxo64FdQr/gMLYUOKtaPr7hMLFdPqsUOKsU QrJXO0/mNKBjQaFn9W//Qm/ZS5/gMKZiNKEUMK7jRaIg64VjRqJqNL6g65FcNG/0 Pqxf62NjQapVR0/YPqJn65BpQ5/jQbEUPLJgR4ZhNKFdMG/dPW/nNL/VQa3oNG/a OKlZQm/oO43o64Zn64ldPahZN0/oPm/mNKBjQaFn9W/7PK3bNLAUNb7jPG/nRKBc 64ppP5FdPKJYOK2URqZgP0/gPq3Y90/WNG/YOLBkP43tNKEUOKsUR4VZ65RdPaFj RmkUMKtY65/mOKto64Zi65FcNG/mNL/jQbEUPr6UMaxjOmsB1IBjP4xm63FZS5EU OKsUR4VZ627jPqgB60.U60.UEaxjOrAUQ57dPbFZN0/pQqZiNm/oO4IUEaxjOm/4 Pr7hMLEURqZgP0/pQqIUQqxhNG/XPqljQW/oNLVo60VVP5FcPrJbO0/VP4kUEalp NG/oNLVo65RdP4kUQ57dPbEUOKsUMalVMqgd9WsUGKMUSKxp64Fj64tjR0/cMLNZ 642UMqxgPr6UQ57dPbFZQWkUR4VZ647jPqhn65RdP4kUMKlrMLZn65/mOKto64Nd PaIg647pR0/rOKlg65/mOKto64Zi647gMKBf60MURqVdR4Ii62Za65ZjRG/cMLNZ 642UMqxgPr6UQ57dPbFZQWkUMbJo65/mNKNZQW/V647gMKBf60MURqVdR4IUMaxj Om.cNaxm64NVQrFZQW/kQaZiR4ZiNm/jQW/aPr6UMaJoR4Jm65/cPrFjMqxkSKZi NmYg65ZjRG/XMKsUMqVZMqgUR4VZ6B707ZQUI57dPbFdPaTH64xkR4ZjPW/dPW/o O4IUFqJiNL7VP0/EQaJaNL7ZPaBZQm/WNKNjQaIUQ57dPbFdPaQUR4VZ647jPqgi 1E